0 IFPEEK(50307)=120THENPOKE50257,0
10 REM  *******************************
20 REM  *  LOHN UND EINKOMMENSTEUER   *
30 REM  *     VON MICHAEL HANKE       *
40 REM  *      &  HEIKO HONDONG       *
60 REM  *******************************
65 SA=7:REM SEKUNDAERADRESSE DRUCKER
66 KI=9:REM KIRCHENSTEUERSATZ 9 %
67 REM KI=8 FUER BADEN-WUERTTEMBERG,BAYERN,BREMEN UND HAMBURG
70 DIMA(44),B(24),C(30),D(10),E(10),F(26),Y$(6),S(4),K(30),V(10)
80 PRINTCHR$(14):PRINTCHR$(8):TP=31:D$="[196][205]        [146]"
90 POKE53280,11:POKE53281,11:POKE649,1
100 PRINT"[147][204][160][207][160][200][160][206][160]-  [197][160][201][160][206][160][203][160][207][160][205][160][205][160][197] [206][160][211][160][212][160][197][160][213][160][197][160][210]";
110 PRINT"F U E R "
115 PRINT"                           "
120 PRINT"    1  99999  88888  66666 "
130 PRINT"   11  9   9  8   8  6     "
140 PRINT"  1 1  9   9  8   8  6     "
150 PRINT" 1  1  9   9  8   8  6     "
160 PRINT"    1  99999  88888  66666 "
170 PRINT"    1      9  8   8  6   6 "
180 PRINT"    1      9  8   8  6   6 "
190 PRINT"    1      9  8   8  6   6 "
200 PRINT"    1  99999  88888  66666 "
201 PRINT"                           "
202 PRINT"(1) _  [194]ERECHNUNG DER [202]AHRESSTEUER 1986"
204 PRINT"(2) _  [197]INKOMMENSTEUERTABELLE      1986"
210 GETA$:A=VAL(A$):IFA>2ORA=0THEN210
215 ONAGOTO230,5000
230 PRINT"[147] [200]INWEISE ZU DEN [197]INGABEN ! "
240 PRINT"[199]RUNDSAETZLICH SIND IMMER NUR VOLLE[146] [196][205]  -[194]ETRAEGE EINZUGEBEN !"
250 PRINT"[196]IE [197]INGABEN SIND MIT DER [210]ETURN-[212]ASTE[146]  ABZUSCHLIESSEN, ";
260 PRINT"[193]USNAHMEN SIND (J/N) -"
270 PRINT"[193]BFRAGEN. [198]ALSCHEINGABEN KOENNEN DURCH"
280 PRINT"[201][206][211][212]/[196][197][204][146] KORRIGIERT WERDEN."
290 PRINT" 0 [146] [196][205]-[197]INGABEN ODER NICHT ZUTREFFENDE  [193]BFRAGEN  KOENNEN DURCH ";
300 PRINT" [196]RUECKEN  DER  [210]ETURN-[212]ASTE[146] BEANTWORTET WERDEN."
305 PRINT"---->  [211][208][193][195][197]";
310 GOSUB3370
320 S$="[211]TEUERPFLICHTIGEN":E$="[197]HEFRAU":R$="[210]ELIGION":G$="[199]EBURTSDATUM"
330 K$="KATHOLISCH":V$="EVANGELISCH":L$="LEDIG":H$="VERHEIRATET"
340 AZ$="[193]NGABEN LAUT [218]EILEN [206]R.":AN$="[193]US [193]NLAGE [206] FUER":KI$="[203]IRCHENSTEUER"
350 PRINT"[147] [193]LLGEMEINE [193]NGABEN ":A(1)=0
360 PRINT"[198]AMILIENSTAND DES"
370 PRINT""+S$+":  ([214]) = "+H$
380 PRINT"([204]) = "+L$
390 GETY$:IFY$=""THEN390
400 IFY$="V"THENPRINT"[145][145]   "+H$+"[146]     ":GOTO430
410 IFY$="L"THENPRINT"[145][145]   "+L$+"[146]          ":A(1)=1:GOTO430
420 GOTO390
430 PRINT"                                       "
440 PRINTG$+" DES      ([212][212][205][205][202][202])"
450 PRINT""+S$+":      .  .  [146]":GOSUB3390:IFA<220102THENA(2)=1
460 IFA(1)=1THEN480
470 PRINT""+E$+"          :      .  .  [146]":GOSUB3390:IFA<220102THENB(2)=1
480 PRINT""+R$+" DES          ( 0 / [197] / [203] )"
490 PRINT""+S$+":":GOSUB3500:IFY$="K"THENA(3)=2
500 IFY$="E"THENA(3)=1
510 IFA(1)=1THEN550
520 PRINT""+E$+"          :":GOSUB3500
530 IFY$="K"THENB(3)=2
540 IFY$="E"THENB(3)=1
550 PRINT"[218]AHL DER [203]INDER  :"
560 GETY$:IFY$=""THENY$="*"
570 IFY$=CHR$(13)THENY$="0"
580 IFASC(Y$)<48ORASC(Y$)>57THEN560
590 PRINT"[145]";Y$:A(4)=VAL(Y$)
600 GOSUB3540:IFA$="N"THEN350
610 PRINT"[147] [193]NGABEN ZUM [193]RBEITSLOHN "
620 PRINT""+AN$+" DEN "+S$:B(0)=0:GOSUB700:GOSUB2390:IFA(1)THEN1670
630 PRINT"[147] [193]NGABEN IN [193]NLAGE [206] FUER DIE "+E$+" ? "
640 PRINT"                (J/N) ?":GOSUB3550:IFA$="J"THEN670
650 PRINT"[145] KEINE ":GOSUB3540
660 IFA$="N"THEN630
665 GOTO1670
670 PRINT"[147] [193]NGABEN ZUM [193]RBEITSLOHN "
680 PRINT""+AN$+" DIE "+E$:B(0)=1:AE=1
690 GOSUB700:GOSUB2390:GOTO1670
700 GOSUB850:GOSUB1120
710 PRINT"[147] [215]ERBUNGSKOSTEN ALLGEMEIN [146]"
720 PRINT"[193]NGABEN IN [218]EILE 45 - 48 ? (J/N)":GOSUB3550
730 IFA$="J"THENGOSUB1400:GOTO750
740 PRINT"[145]: KEINE":GOSUB3540:IFA$="N"THEN710
750 PRINT"[147] [205]EHRAUFWENDUNGEN FUER [214]ERPFLEGUNG "
760 PRINT"[194]ETRAEGE IN [218]EILE 49 - 54 ? (J/N)":GOSUB3550
770 IFA$="J"THENGOSUB1480:GOTO790
780 PRINT"[145]: KEINE":GOSUB3540:IFA$="N"THEN750
790 PRINT"[147] [205]EHRAUFWENDUNGEN ":PRINT" FUER DOPPELTE [200]AUSHALTSFUEHRUNG "
800 PRINT"[193]NGABEN IN [218]EILE 55 - 63 ? (J/N)":GOSUB3550
810 IFA$="J"THENGOSUB1570:GOTO830
820 PRINT"[145]: KEINE":GOSUB3540:IFA$="N"THEN790
830 F(22)=F(17)+F(19)+F(20)+F(21):IFF(22)<564THENF(22)=564
840 RETURN
850 X$="[194]RUTTOARBEITSLOHN":TP$="":TP=31
860 PRINT""+X$+"      "+D$
870 GOSUB3570:F(5)=Y:GOSUB3770
880 X$="[204]OHNSTEUER":PRINT""+X$+"             "+D$:GOSUB3570
890 F(6)=Y :GOSUB3770:X$=KI$
900 ONB(0)+1GOTO910,920
910 ONA(3)+1GOTO960,930,950
920 ONB(3)+1GOTO960,930,950
930 PRINT""+X$+" (EV)     "+D$:GOSUB3570:F(7)=Y:GOSUB3770
940 GOTO960
950 PRINT""+X$+" (RK)     "+D$:GOSUB3570:F(7)=Y :GOSUB3770
960 PRINT"[194]ETRAEGE IN [218]EILE 7 -15 (J/N) ?":GOSUB3550
970 IFA$="N"THENPRINT"[145]   KEINE [146]":GOTO1082
980 X$="[211]UMME DER [218]EILEN 7 - 9 "+D$:PRINT"[145]"+X$:GOSUB3570
990 GOSUB3770:IFY=0THEN1010
1000 F(8)=Y
1010 X$="[211]UMME DER [218]EILEN 10-12 "+D$
1020 PRINT""+X$:GOSUB3570:GOSUB3770:F(9)=Y
1030 PRINT"[211]UMME DER [218]EILE  13    "+D$
1040 GOSUB3570:GOSUB3770:IFY=0THEN1060
1050 F(10)=Y
1060 PRINT"[211]UMME DER [218]EILEN 14+15 "+D$
1070 GOSUB3570:GOSUB3770:IFY =0THEN1082
1080 F(12)=Y
1082 PRINT"[214]ERSORGUNGSBEZUEGE IM [194]RUTTO ENTHALTEN"
1083 PRINT"[194]ETRAEGE LT. [218]EILE 23  "+D$
1084 GOSUB3570:GOSUB3770:IFY=0THEN1090
1086 F(11)=Y:
1090 F(13)=0:PRINT"[193]NGABEN IN [218]EILE 31 - 36  (J/N) ?":GOSUB3550
1092 IFA$="N"THENB$=" KEINE ":GOTO1096
1094 B$="   JA  "::F(13)=1
1096 PRINT"[145]  "+B$
1098 GOSUB3540:IFA$="N"THENFORI=5TO13:F(I)=0:NEXT:IFB(0)=1THEN670
1100 IFA$="N"THEN610
1110 RETURN
1120 PRINT"[147] [215]ERBUNGSKOSTEN "
1130 PRINT"[198]AHRTEN ZW. [215]OHNUNG UND [193]RBEITSSTAETTE"
1140 PRINT"    [208][203][215](1)  [205][207][212](2)  [205][207][198](3)  [198][193][200](4)":GOSUB3700:A=VAL(A$)
1150 IFA=0THEN1300
1160 ONAGOTO1170,1180,1190,1200:GOTO1260
1170 F=.36:W$="[208][203][215]":GOTO1210
1180 F=.16:W$="[205][207][212]":GOTO1210
1190 F=.22:W$="[205][207][198]":GOTO1210
1200 F=.12:W$="[198][193][200]"
1210 PRINT""+W$+"[146] BENUTZT AN [212]AGEN             [146]"
1220 GOSUB3570:GOSUB3770:F(14)=Y
1230 IFF(14)>365THEN:PRINT"[145][145][145]":GOTO1210
1240 PRINT"[197]INFACHE [197]NTFERNUNG              [146]":GOSUB3570:GOSUB3770:F(15)=Y
1250 IFF(15)>999THEN:PRINT"[145][145][145]":GOTO1240
1260 F(16)=F*F(14)*F(15):F(17)=F(17)+F(16)
1270 IFX<2THENPRINT"WEITERE [193]RBEITSSTAETTEN (J/N)?":GOSUB3550
1280 IFA$="J"THENPRINT"[145][145][145]":X=X+1:GOTO1140
1290 IFA$="N"THENPRINT"[145]:   KEINE"
1300 GOSUB3540:IFA$="N"THENF(14)=0:F(15)=0:X=0:F(17)=0:GOTO1120
1310 PRINT"[147] [215]ERBUNGSKOSTEN ":X$="[207]EFFENTLICHE [214]ERKEHRSMITTEL"
1320 PRINT""+X$:PRINT"[193]UFWENDUNGEN        :  "+D$:GOSUB3570
1330 GOSUB3770
1340 F(16)=Y
1350 PRINT"VOM [193]RBEITGEBER"
1360 PRINT"STEUERFREI ERSETZT  :  "+D$:GOSUB3570:GOSUB3770
1370 F(18)=Y
1380 GOSUB3540:IFA$="N"THENF(16)=0:F(18)=0:GOTO1310
1385 F(17)=F(17)+F(16)-F(18)
1390 RETURN
1400 X$="[194]ETRAEGE AUS [218]EILE "
1410 PRINT"[145]"+X$+"45: "+D$:GOSUB3570:GOSUB3770:F(19)=Y
1420 PRINT""+X$+"46: "+D$:GOSUB3570:GOSUB3770:F(19)=F(19)+Y
1430 PRINT""+X$+"47: "+D$:GOSUB3570:GOSUB3770:F(19)=F(19)+Y
1440 PRINT""+X$+"48: "+D$:GOSUB3570:GOSUB3770:F(19)=F(19)+Y
1450 PRINT"[211]UMME IN [198]ELD 77     = [196][205]":Y=F(19):GOSUB3770
1460 GOSUB3540:IFA$="N"THEN710
1470 RETURN
1480 X$="[194]ETRAEGE AUS [218]EILE "
1490 PRINT"[145]"+X$+"50: "+D$:GOSUB3570:GOSUB3770:F(20)=Y
1500 PRINT""+X$+"52: "+D$:GOSUB3570:GOSUB3770:F(20)=F(20)+Y
1510 PRINT""+X$+"53: "+D$:GOSUB3570:GOSUB3770:F(20)=F(20)+Y
1520 PRINT"STEUERFREI ERSETZT   : "+D$:GOSUB3570:GOSUB3770
1530 F(22)=F(20)-Y
1540 PRINT"[211]UMME IN [198]ELD 76     = [196][205]":Y=F(22):GOSUB3770
1550 GOSUB3540:IFA$="N"THEN750
1560 RETURN
1570 X$="[194]ETRAEGE AUS [218]EILE "
1580 PRINT"[145]"+X$+"58: "+D$:GOSUB3570:GOSUB3770:F(21)=Y
1590 PRINT""+X$+"59: "+D$:GOSUB3570:GOSUB3770:F(21)=F(21)+Y
1600 PRINT""+X$+"60: "+D$:GOSUB3570:GOSUB3770:F(21)=F(21)+Y
1610 PRINT""+X$+"61: "+D$:GOSUB3570:GOSUB3770:F(21)=F(21)+Y
1620 PRINT"STEUERFREI ERSETZT   : "+D$:GOSUB3570:GOSUB3770
1630 F(21)=F(21)-Y
1640 PRINT"[211]UMME IN [198]ELD 75     = [196][205]":Y=F(21):GOSUB3770
1650 GOSUB3540:IFA$="N"THEN790
1660 RETURN
1670 PRINT"[147] [200]ATTEN [211]IE [197]INKUENFTE IM [203]ALENDERJAHR  [146]";
1672 PRINT" 1 9 8 6 "
1673 PRINT"   AUS"
1674 PRINT"[214]ERMIETUNG UND [214]ERPACHTUNG..([193]NLAGE  [214] )[146]";
1676 PRINT"                  ODER"
1678 PRINT"[203]APITALVERMOEGEN............([193]NLAGE [203][211][207])[146]";
1679 PRINT"                  ODER"
1680 PRINT"[199]EWERBEBETR./[211]ELBST.[193]RBEIT..([193]NLAGE [199][211][197])[146]";
1682 PRINT"                 (J/N)?"
1690 GOSUB3550:IFA$="N"THENPRINT"[145]KEINE ":GOTO1760
1700 PRINT"[147][145][211]ETZEN [211]IE DIE [211]UMMEN EIN,DIE [211]IE AUS   DEN [193]NLAGEN ERMITTELT HABEN."
1710 PRINT"[194]EI NEGATIVEN [197]INKUENFTEN DAS - [218]EICHEN "
1720 PRINT"VOR DER [197]INGABE NICHT VERGESSEN!"
1730 PRINT"[211]UMME AUS [193]NLAGE [214]  :  "+D$
1740 GOSUB3570:IFM=1THENY=Y*-1
1750 GOSUB3770:V=Y
1752 PRINT"[211]UMME AUS [193]NLAGE [203][211][207]:  "+D$:GOSUB3570:IFM=1THENY=Y*-1
1754 GOSUB3770:KS=Y:KS=KS-400:IFA(1)=0THENKS=KS-400
1755 IFKS<0THENKS=0
1756 PRINT"[211]UMME AUS [193]NLAGE [199][211][197]:  "+D$:GOSUB3570:IFM=1THENY=Y*-1
1758 GOSUB3770:GS=Y
1760 GOSUB3540:IFA$="N"THEN1670
1765 IFA(13)+B(13)=2ORA(13)=1ANDAE=0THEN1920
1770 PRINT"[147] [211]ONDERAUSGABEN ":X$="[211]OZIALVERSICHERUNG ":TP=33:TP$=""
1775 IFA(13)=1THEN1805
1780 PRINT""+X$+"DES [211]TEUERPFLICHTIGEN"
1790 PRINT"NUR [193]RBEITNEHMER[146]ANTEIL:  "+D$:GOSUB3570:GOSUB3770
1800 A(23)=Y:IFA(1)THEN1840
1805 IFB(13)=1ORAE=0THEN1835
1810 PRINT""+X$+"DER [197]HEFRAU"
1820 PRINT"NUR [193]RBEITNEHMER[146]ANTEIL:  "+D$:GOSUB3570:GOSUB3770
1830 A(24)=Y
1835 IFA(13)=1THEN1875
1840 X$="[210]ENTENVERSICHERUNG "
1850 PRINT""+X$+"DES [211]TEUERPFLICHTIGEN"
1860 PRINT"NUR [193]RBEITGEBER[146]ANTEIL :  "+D$:GOSUB3570:GOSUB3770
1870 A(25)=Y:IFA(1)THEN1910
1875 IFB(13)=1ORAE=0THEN1910
1880 PRINT""+X$+"DER [197]HEFRAU"
1890 PRINT"NUR [193]RBEITGEBER[146]ANTEIL :  "+D$:GOSUB3570:GOSUB3770
1900 A(26)=Y
1910 GOSUB3540:IFA$="N"THEN1770
1920 PRINT"[147] [211]ONDERAUSGABEN ":PRINT"IN 1986   IN 1986"
1930 PRINT"GEZAHLT:  ERSTATTET:"
1940 PRINT"[198]REIW. [214]ERS.:   "+D$:TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570
1950 GOSUB3770:A(27)=Y
1960 PRINTTAB(29);"[145]"+D$:TP$="":TP=37:GOSUB3570:GOSUB3770
1970 A(27)=A(27)-Y
1980 PRINT"[203]RANKENVERS.:   "+D$:TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570
1990 GOSUB3770:A(28)=Y
2000 PRINTTAB(29);"[145]"+D$:TP$="":TP=37:GOSUB3570:GOSUB3770
2010 A(28)=A(28)-Y
2020 PRINT"[213]NFALLVERS. :   "+D$:TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570
2030 GOSUB3770:A(29)=Y
2040 PRINTTAB(29);"[145]"+D$:TP$="":TP=37:GOSUB3570:GOSUB3770
2050 A(29)=A(29)-Y
2060 PRINT"[204]EBENSVERS. :   "+D$:TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570
2070 GOSUB3770:A(30)=Y
2080 PRINTTAB(29);"[145]"+D$:TP$="":TP=37:GOSUB3570:GOSUB3770
2090 A(30)=A(30)-Y
2100 PRINT"[200]AFTPFLICHT :   "+D$:TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570
2110 GOSUB3770:A(31)=Y
2120 PRINTTAB(29);"[145]"+D$:TP$="":TP=37:GOSUB3570:GOSUB3770
2130 A(31)=A(31)-Y:GOSUB3540:IFA$="N"THEN1920
2140 B(1)=A(27)+A(28)+A(29)+A(30)+A(31):TP=33:TP$=""
2150 PRINT"[147] [211]ONDERAUSGABEN ":PRINT"[194]AUSPARKASSE [194]EITRAEGE:  "+D$
2160 GOSUB3570:GOSUB3770:A(32)=Y
2170 PRINT"[203]IRCHENSTEUER GEZAHLT :  "+D$:GOSUB3570:GOSUB3770:A(33)=Y
2180 PRINT"IN 1986 ERSTATTET     :  "+D$:GOSUB3570:GOSUB3770
2190 A(41)=Y:A(33)=A(33)-A(41)
2200 PRINT"[211]TEUERBERATUNGSKOSTEN :  "+D$:GOSUB3570:GOSUB3770:A(34)=Y
2210 PRINT"[194]ERUFSAUSBILDUNG      :  "+D$:GOSUB3570:GOSUB3770:A(35)=Y
2220 PRINT"[211]PENDEN ([218]EILE 81-83) :  "+D$:GOSUB3570:GOSUB3770:A(36)=Y
2230 PRINT"WEITERE [211]ONDERAUSGABEN:  "+D$:GOSUB3570:GOSUB3770:A(42)=Y
2232 PRINT" [193]USSERGEWOEHNLICHE [194]ELASTUNGEN "
2234 PRINT"[193]NGABEN IN [218]EILE  86 - 117  :  (J/N)":GOSUB3550
2236 IFA$="N"THENPRINT"[145]KEINE":SO=0:GOTO2240
2238 PRINT"[145]  [202]A ":SO=1
2240 GOSUB3540:IFA$="N"THEN2150
2245 IFSO=1THENGOSUB6000
2250 GOTO2470
2260 IFA(0)=0THENE=E/2
2270 E=INT(E/54)*54
2280 IFE<=4537THENSX=0:GOTO2360
2290 IFE>=18036THEN2310
2300 SX=INT(.22*E-998):GOTO2360
2310 IFE>=80028THEN2330
2320 A=(E-18000)/10000:SX=INT((((2.1*A-56.02)*A+600)*A+2200)*A+2962):GOTO2360
2330 IFE>=130032THEN2350
2340 A=(E-80000)/10000:SX=INT((42*A+5180)*A+29417):GOTO2360
2350 SX=INT(.56*E-16433)
2360 IFSX<0THENSX=0
2370 IFA(0)=0THENSX=SX*2
2380 RETURN
2390 FORI=5TO22:GOSUB2420
2400 NEXT
2410 RETURN
2420 IFB(0)THEN2440
2430 A(I)=F(I):F(I)=0:GOTO2450
2440 B(I)=F(I):F(I)=0
2450 RETURN
2460 :
2470 GOSUB3860
2480 X$=" [204]OHNSTEUERAUSGLEICH ":Y$="[204]OHNSTEUER"
2490 IFF(1)THENX$="[197]INKOMMENSTEUERVERANLAGUNG":Y$="[197]INKOMMENSTEUER"
2500 TX=36:IFDR=1THENTX=6
2510 PRINT"[147]"+X$
2520 PRINT:PRINT"[198]ESTSETZUNG DER "+Y$
2530 PRINT:PRINT:PRINT"IN 1986 GEZAHLTE [211]TEUERN     [196][205] ";:Y=F(6):GOSUB3830
2540 PRINT:PRINT"FUER 1986 FESTGESETZT        [196][205] ";:Y=ET:GOSUB3830
2550 PRINT:PRINT"VERBLEIBENDE [194]ETRAEGE        [196][205] ";:Y=F(6)-ET:GOSUB3830
2560 IFA(7)+B(7)=0ANDE(5)=0THEN2600
2570 PRINT:PRINT"[203]IRCHENSTEUER GEZAHLT        [196][205] ";:Y=A(7)+B(7):GOSUB3830
2580 PRINT:PRINT"[203]IRCHENSTEUER FESTGESETZT 9% [196][205] ";:Y=E(5):GOSUB3830
2590 PRINT:PRINT"VERBLEIBENDE [194]ETRAEGE        [196][205] ";:Y=(A(7)+B(7))-E(5):GOSUB3830
2600 IFF(2)<=0THENF(2)=0:GOTO2620
2610 PRINT:PRINT"[210]UECKZAHLUNG [211]PARZULAGE      [196][205] ";:Y=F(2):GOSUB3830
2620 PRINT"========================================"
2630 Y=(F(6)-ET)+(A(7)+B(7))-E(5)-F(2)
2640 X$="[210]ESTGUTHABEN":IFY<0THENX$="[206]ACHZAHLUNG "
2650 PRINT""+X$+"[146]                 [196][205] ";:GOSUB3830
2660 IFHK=1THENPRINT#4:CLOSE4:HK=0:GOTO2700
2670 IFDR=1THENOPEN4,GA,SA:CMD4:HK=1:GOTO2480
2680 PRINT"            (+)  WEITER                 ";
2690 GETA$:IFA$<>"+"THEN2690
2700 PRINT"[147] [194]ERECHNUNG "
2710 X$="[197]HEMANN   [197]HEFRAU":IFA(1)=1THENX$="[211]TEUERPFLICHTIGER"
2720 TP=26:TX=36:IFDR=1THENTX=6:TP=6
2730 PRINT:PRINT"                     "+X$
2740 PRINT:PRINT"[194]RUTTOARBEITSLOHN [196][205]";:Y=A(5):GOSUB3800:IFA(1)THENPRINT
2750 IFA(1)=0THENY=B(5):GOSUB3830
2760 PRINT:PRINT"AB [198]REIBETRAEGE   [196][205]";:Y=1080+F(25):GOSUB3800:IFA(1)THENPRINT
2770 IFA(1)=0THENY=1080+F(26):GOSUB3830
2780 PRINT:PRINT"AB [215]ERBUNGSKOSTEN [196][205]";:Y=A(22):GOSUB3800:IFA(1)THENPRINT
2790 IFA(1)=0THENY=B(22):GOSUB3830
2800 PRINT:PRINT"[197]INKUENFTE        [196][205]";:Y=A(5)-1080-A(22)-F(25):IFY<0THENY=0
2810 GOSUB3800:IFA(1)THENPRINT:GOTO2840
2820 Y=B(5)-1080-B(22)-F(26):IFY<0THENY=0
2830 GOSUB3830
2840 PRINT:PRINT"[146]=============================";:IFA(1)=0THENPRINT"========="
2850 PRINT:PRINT"[193]NLAGEN [214]/[199][211][197]/[203][211][207] [196][205]";:Y=V+KS+GS:GOSUB3800
2855 IFEB=0ANDEF=0THEN2870
2860 PRINT:PRINT:PRINT"[193]LTERSENTL. [194]ETR. [196][205]";:Y=EB*-1:GOSUB3800:IFB(2)=0THENPRINT
2865 IFB(2)THENY=EF*-1:GOSUB3830
2870 PRINT:PRINT:PRINT"[211]UMME DER [197]INK.   [196][205]";:Y=C(2)+AN-EB:IFY<0THENY=0
2880 GOSUB3800:IFA(1)THENPRINT:GOTO2910
2890 Y=D(2)-EF:IFY<0THENY=0
2900 GOSUB3830
2910 IFHK=1THENPRINT#4:CLOSE4:HK=0:GOTO2960
2920 IFDR=1THENOPEN4,GA,SA:CMD4:PRINT:PRINT:PRINT:HK=1:GOTO2700
2930 :
2940 GOSUB3740
2950 IFA$="-"THEN2480
2960 PRINT"[147] [194]ERECHNUNG [146]  ([197]NDE)":TX=36:IFDR=1THENTX=6
2970 PRINT:PRINT"[199]ESAMTBETRAG DER [197]INKUENFTE [196][205]";:Y=C(3):IFY<0THENY=0
2980 GOSUB3830
2985 :
2990 PRINT:PRINT"[211]ONDERAUSGABEN (ABZIEHBAR)  [196][205]";:Y=C(4):GOSUB3830
2995 :
3000 :
3010 IFA(43)+K(30)=0THEN3080
3020 PRINT:PRINT"[193]USSERGEWOEHNL. [194]ELASTUNGEN:"
3030 PRINT:PRINT"[193]UFWENDUNGEN  [196][205]";:Y=A(43)+K(30):TX=23:IFDR=1THENTX=6
3040 GOSUB3830
3050 PRINT:PRINT"ABZIEHBAR NACH [193]BZUG        [196][205]";:Y=A(44)+K(30)
3060 TX=36:IFDR=1THENTX=6
3070 GOSUB3830
3080 PRINT:PRINT"[214]ERSICHERUNGSBEITRAEGE:"
3090 PRINT:PRINT"GEZAHLT       [196][205]";:Y=C(6):TX=23:IFDR=1THENTX=6
3100 GOSUB3830
3110 PRINT:PRINT"ABZIEHBAR                   [196][205]";:Y=B(24):TX=36:IFDR=1THENTX=6
3120 GOSUB3830
3122 IFFB>0THENPRINT:PRINT"AB [211]UMME DER [198]REIBETRAEGE   [196][205]";:Y=FB:GOSUB3830
3124 :
3130 PRINT"======================================="
3140 PRINT:PRINT"[218]U VERSTEUERNDES [197]INKOMMEN  [196][205]";:Y=C(0):IFC(0)<0THENY=0
3150 GOSUB3830
3160 IFHK=1THENPRINT#4:CLOSE4:HK=0:GOTO3190
3170 IFDR=1THENOPEN4,GA,SA:CMD4:HK=1:PRINT:PRINT:PRINT:GOTO2960
3180 GOSUB3740:IFA$="-"THEN2700
3190 FORA=1TO3:Y$(A)="":NEXT:B=0
3195 PRINT"[147]     [204]OHN- UND [197]INKOMMENSTEUER 1986     "
3200 PRINTY$(1)+"(1).........[206]EUE [194]ERECHNUNG"
3210 PRINTY$(2)+"(2)......[193]USGABE [194]ILDSCHIRM"
3212 IFPEEK(50307)=120THEN3220
3215 PRINTY$(3)+"(3).....[193]USGABE AUF [196]RUCKER"
3220 GETA$:A=VAL(A$):IFA>0ANDA<4THENB=A
3225 IFA$=CHR$(13)THEN3240
3230 FORA=1TO3:Y$(A)="":NEXT:Y$(B)="":GOTO3200
3240 ONBGOTO3250,3252,3254
3250 RUN
3252 DR=0:GOTO2480
3254 IFPEEK(50307)<>120THEN3270
3260 GOTO3200
3270 GA=4:GOTO3320
3280 GETA$
3290 IFA$=CHR$(13)THEN3330
3300 GE=VAL(A$):IFGE>3ANDGE<7THENGA=GE:GOTO3320
3320 PRINT"[196]RUCKERADRESSE :";GA:GOTO3280
3330 OPEN4,GA,SA:CLOSE4
3340 IFST=-128THEN3360
3350 DR=1:GOTO2480
3360 PRINT"[196]RUCKER EINSCHALTEN !":FORA=0TO1000:NEXT:GOTO3190
3370 GETA$:IFA$<>" "THEN3370
3380 RETURN
3390 GOSUB3480:FORI=1TO6
3400 GETY$(I):IFY$(I)=""THENY$(I)="*"
3410 IFY$(I)=CHR$(20)THEN3490
3420 IFASC(Y$(I))<48ORASC(Y$(I))>57THEN3400
3430 PRINT"[145]";Y$(1)Y$(2);".";Y$(3)Y$(4);".";Y$(5)Y$(6):NEXT
3440 GETA$:IFA$=CHR$(13)THEN3470
3450 IFA$=CHR$(20)THEN3490
3460 GOTO3440
3470 A=VAL(Y$(5)+Y$(6)+Y$(3)+Y$(4)+Y$(1)+Y$(2)):RETURN
3480 FORI=1TO6:Y$(I)=" ":NEXT:RETURN
3490 PRINT"[145]  .  .  ":GOTO3390
3500 GETY$:IFY$="K"THENPRINT"[145]";K$:RETURN
3510 IFY$="E"THENPRINT"[145]";V$:RETURN
3520 IFY$="0"ORY$=CHR$(13)THENPRINT"[145]KEINE":RETURN
3530 GOTO3500
3540 PRINT"           ALLES RICHTIG ?  (J/N)      ";
3550 GETA$:IFA$="J"ORA$="N"THENRETURN
3560 GOTO3550
3570 GOSUB3480:FORI=1TO6
3580 GETY$(I):IFY$(I)=""THENY$(I)="*"
3590 IFY$(I)=CHR$(13)THEN3670
3600 IFY$(I)=CHR$(20)THENGOSUB3690:GOTO3570
3610 M=0:IFI=1ANDY$(1)="-"THENM=1:GOTO3630
3620 IFASC(Y$(I))<48ORASC(Y$(I))>57THEN3580
3630 PRINT"[145]"+TP$;Y$(1)Y$(2)Y$(3)Y$(4)Y$(5)Y$(6):NEXT
3640 GETA$:IFA$=CHR$(13)THEN3670
3650 IFA$=CHR$(20)THENGOSUB3690:GOTO3570
3660 GOTO3640
3670 Y$=Y$(1)+Y$(2)+Y$(3)+Y$(4)+Y$(5)+Y$(6):Y=VAL(Y$)
3680 PRINT"[145]"+TP$+"       ":RETURN
3690 PRINT"[145]"+TP$+"       ":RETURN
3700 GETA$:IFA$=""THEN3700
3710 IFA$=CHR$(13)THENRETURN
3720 IFVAL(A$)=0ORVAL(A$)>4THEN3700
3730 RETURN
3740 PRINT"         (+) WEITER  (-) ZURUECK        ";
3750 GETA$:IFA$="+"ORA$="-"THENRETURN
3760 GOTO3750
3770 YF=ABS(Y):Y=INT(Y+.5):PRINT"[145]";
3780 PRINTTAB(INT(LOG(YF-(YF=0))*.43429448188)*(YF>=1)+INT(-YF)*(YF<1)+TP);Y
3790 RETURN
3800 YF=ABS(Y):Y=INT(Y+.5):IFDR=0THENPRINT"";
3810 PRINTTAB(INT(LOG(YF-(YF=0))*.43429448188)*(YF>=1)+INT(-YF)*(YF<1)+TP);Y;
3820 RETURN
3830 YF=ABS(Y):Y=INT(Y+.5):IFDR=0THENPRINT"";
3840 PRINTTAB(INT(LOG(YF-(YF=0))*.43429448188)*(YF>=1)+INT(-YF)*(YF<1)+TX);Y
3850 RETURN
3860 PRINT"[147][194]ERECHNUNG !"
3862 IFA(2)=1THENFB=FB+720
3864 IFB(2)=1THENFB=FB+720
3866 IFA(4)>0THENFB=FB+(A(4)*2484)
3868 IFA(1)=1ANDA(4)>0THENFB=FB+4536
3870 F(25)=A(11)*.4:IFF(25)>4800THENF(25)=4800
3872 F(26)=B(11)*.4:IFF(26)>4800THENF(26)=4800
3878 C(1)=A(5)-F(25)-600:C(2)=C(1)-480-A(22)
3880 IFA(1)=0THEND(1)=B(5)-F(26)-600:D(2)=D(1)-480-B(22)
3890 IFD(2)<0THEND(2)=0
3900 IFC(2)<0THENC(2)=0
3902 AN=V+KS+GS:IFAN>0THENPE=AN
3904 IFA(2)THENEB=A(5)-A(11)+PE:IFEB<0THENEB=0
3906 EB=EB*.4:IFEB>3000THENEB=3000
3908 IFB(2)THENEF=B(5)-B(11)+PE:IFEF<0THENEF=0
3909 EF=EF*.4:IFEF>3000THENEF=3000
3910 C(3)=C(2)+D(2)+AN-EB-EF:C(4)=A(33)+A(34)+A(35)+A(36)+A(42):GOSUB4550
3920 IFA(1)=1THEN3940
3930 IFC(4)<540THENC(4)=540
3940 IFC(4)<270THENC(4)=270
3950 C(5)=C(3)-C(4):C(7)=6000:IFA(1)=1THENC(7)=3000
3960 C(6)=A(23)+A(24)+A(27)+A(28)+A(29)+A(30)+A(31)
3962 IFA(13)=1THENA(25)=C(1)*.09:IFC(1)>67200THENA(25)=6048
3964 IFB(13)=1THENA(26)=D(1)*.09:IFD(1)>67200THENA(26)=6048
3970 C(8)=C(7)-A(25)-A(26):IFC(8)<0THENC(8)=0
3980 C(9)=C(6)-C(8):IFC(9)<0THENC(9)=0
3990 C(10)=C(6):IFC(8)<C(6)THENC(10)=C(8)
4000 C(11)=C(9)+A(32):B(0)=2340
4010 IFA(1)=0THENB(0)=4680
4020 C(12)=B(0):IFC(11)<B(0)THENC(12)=C(11)
4030 C(13)=C(11)/2-B(0)/2:IFC(13)<0THENC(13)=0
4035 C(14)=B(0)/2:IFC(14)<0THENC(14)=0
4040 IFC(14)>C(13)THENC(14)=C(13)
4050 C(15)=C(10)+C(12)+C(14):C(16)=C(1)
4055 PB=A(13)+B(13):B(0)=2340:X=B(0)/2:IFPB=1THENB(0)=1000:X=B(0)
4056 IFA(1)=0THENB(0)=4680:X=B(0)/2
4058 IFA(1)=0ANDPB=2THENB(0)=2000:X=B(0)
4059 IFA(1)=0ANDPB=1ANDAE=0THENB(0)=2000:X=B(0)
4060 B(4)=D(1)
4070 C(16)=C(16)+B(4):IFA(1)=0ANDPB=1ANDAE=1THENGOSUB4700:GOTO4140
4080 C(17)=INT(C(16)*0.09):C(18)=C(17):IFC(17)>B(0)THENC(18)=B(0)
4090 C(19)=C(17):IFC(17)>XTHENC(19)=X
4100 B(23)=C(18)+C(19)
4110 C(20)=INT(B(23)/54)*54:IFA(1)=1THEN4130
4120 IFC(20)<600THENC(20)=600
4130 IFC(20)<300THENC(20)=300
4140 B(24)=C(15):IFC(15)<C(20)THENB(24)=C(20)
4150 C(0)=C(5)-B(24):IFA(2)=1THENC(0)=C(0)-720
4160 IFB(2)=1THENC(0)=C(0)-720
4170 IFA(1)=1ANDA(4)>0THENC(0)=C(0)-4536
4180 C(0)=C(0)-(A(4)*2484)-A(44)-K(30)
4190 IFA(1)=1ANDC(0)>(24000+A(4)*900)THENF(1)=1
4200 IFA(1)=0ANDC(0)>(48000+A(4)*1800)THENF(1)=1
4210 E=C(0)+A(12)+B(12):A(0)=A(1):GOSUB2260
4220 ET=SX*(C(0)/(C(0)+A(12)+B(12))):F(6)=A(6)+B(6)
4230 E(2)=A(10)+B(10):F(2)=E(2):IFE(2)=0ORF(1)=1THEN4390
4240 IFA(9)>936THENA(9)=936
4250 E(1)=23:IFA(4)>2THENE(1)=33
4260 E(3)=INT(A(9)*E(1)+0.5)/100+E(3)
4270 IFA(1)=1THEN4300
4280 IFB(9)>936THENB(9)=936
4290 E(3)=INT(B(9)*E(1)+0.5)/100+E(3)
4300 IFA(8)>936THENA(8)=936
4310 F(8)=A(8)-A(9):E(1)=16:IFA(4)>2THENE(1)=26
4320 IFF(8)<0THENF(8)=0
4330 E(3)=INT(F(8)*E(1)+0.5)/100+E(3)
4340 IFA(1)=1THEN4380
4350 IFB(8)>936THENB(8)=936
4360 F(8)=B(8)-B(9):E(3)=INT(B(8)*E(1)+0.5)/100+E(3)
4370 IFF(8)<0THENF(8)=0
4380 F(2)=E(2)-E(3):IFF(2)<0THENF(2)=0
4390 IFB(3)=0ANDA(3)=0THEN4550
4400 IFA(3)<>0ANDB(3)<>0THENE(4)=ET:GOTO4490
4410 IFA(3)=0THEN4460
4420 E=C(2):A(0)=1:GOSUB2260
4430 E(4)=SX:IFA(1)=1THENE(4)=ET:GOTO4490
4440 E=D(2):GOSUB2260
4450 E(4)=ET*E(4)/(SX+E(4)):GOTO4490
4460 E=C(2):A(0)=1:GOSUB2260
4470 E(4)=SX:E=D(2):GOSUB2260
4480 E(4)=ET*SX/(SX+E(4))
4490 IFA(4)=0THEN4530
4500 E(4)=E(4)-(600*A(4))
4530 IFE(4)<0THENF(4)=0
4540 E(5)=INT(E(4)*KI)/100:IFE(5)<7.2THENE(5)=7
4550 E(8)=4:IFA(1)THENE(8)=5
4560 IFA(1)=1ANDA(4)>0THENE(8)=5
4570 IFC(3)>100000THENE(8)=E(8)+1
4580 IFC(3)>30000THENE(8)=E(8)+1
4590 IFA(4)>0ANDA(4)<3THENE(8)=E(8)-2
4600 IFA(4)=>3THENE(8)=E(8)-4
4610 IFE(8)<=0THENE(8)=1
4620 E(7)=C(3)*E(8)/100:A(44)=A(43)-E(7):IFA(44)<0THENA(44)=0
4625 :
4630 RETURN
4700 C(17)=C(1)*.18:C(18)=D(1)*.18:IFC(18)>2000THENC(18)=2000
4710 C(19)=C(17)+C(18):C(20)=C(19):IFC(19)>7020THENC(20)=7020
4720 C(20)=INT(C(20)/54)*54:IFC(20)<600THENC(20)=600
4730 RETURN
5000 PRINT"[147]  [202]AHRES - [197]INKOMMENSTEUERTABELLE 1986  [146]";:TP=37:TP$=""
5010 PRINT"[218]U VERSTEUERNDES [197]INKOMMEN : "+D$:GOSUB 3570:GOSUB 3770
5015 EK=Y:E=EK
5020 PRINT"[202]AHRESSTEUER [199]RUNDTABELLE  : [196][205] "
5030 A(0)=1:GOSUB2260:Y=SX:S(1)=SX:GOSUB 3770
5040 PRINT"[202]AHRESSTEUER [211]PLITTINGTAB. : [196][205] ":E=EK:A(0)=0:GOSUB 2260:S(2)=SX
5045 IFEK=0THENEK=1
5050 Y=SX:GOSUB 3770
5052 PRINT"[211]TEUERSATZ   [199]RUNDTABELLE  :  % [145]":Y=INT(((S(1)/EK)*100)*100)/100
5054 TP=34:YF=Y:GOSUB3780
5056 PRINT"[211]TEUERSATZ   [211]PLITTINGTAB. :  % [145]"
5058 Y=INT(((S(2)/EK)*100)*100)/100:YF=Y:GOSUB3780:TP=37
5060 PRINT"    [211]TEUERVORTEIL DURCH [193]BSCHREIBUNG   [146] ";
5070 PRINT"[193]BSCHREIBUNGSBETRAG        : "+D$:GOSUB3570
5080 GOSUB3770:AB=Y:EK=EK-AB:A(0)=1:E=EK:GOSUB2260:S(3)=S(1)-SX
5090 PRINT"[211]TEUERVORTEIL [199]RUNDTABELLE : [196][205] ":Y=S(3):GOSUB3770
5100 :
5110 A(0)=0:E=EK:GOSUB2260:S(4)=S(2)-SX
5120 PRINT"[211]TEUERVORTEIL [211]PLITTINGTAB.: [196][205] ":Y=S(4):GOSUB3770
5130 PRINT"        [206]EUE [194]ERECHNUNG (J/N) ?        [146]";:GOSUB3550
5140 IFA$="J"THEN5000
5150 PRINT"[147]":CLR:GOTO70
5900 PRINT"[147]     [193]USSERGEWOEHNLICHE [194]ELASTUNGEN     [146]";:RETURN
5950 PRINT"[145]  KEINE [146]";:RETURN
6000 ZN$="88":TP$="":TP=35
6005 GOSUB5900:IFZN$="89"THENZ=1:GOTO6030
6010 PRINT"[193]NGABEN IN [218]EILE 86 - 89 ....... (J/N) ?";:GOSUB3550
6015 IFA$="J"THEN6030
6020 GOSUB5950:GOSUB3540
6025 IFA$="N"THEN6005
6027 GOTO6400
6030 PRINT"[203]OERPERBEHINDERTE UND [200]INTERBLIEBENE    ";
6040 PRINT"[193]NGABEN ZUR BETROFFENEN [208]ERSON [218]EILE "+ZN$+" ":A$="[146]"
6050 PRINT"[200]INTERBLIEBENER ...............(J/N) _"
6060 PRINT"[203]OERPERBEHINDERTER ............(J/N)"
6070 PRINT"BLIND/STAENDIG PFLEGEBED. .....(J/N)"
6080 PRINT"GEH-UND STEHBEHINDERT .........(J/N)":PRINT""
6100 FORA=1TO4
6110 GETA$:IFA$="J"ORA$="N"THEN6120
6115 GOTO6110
6120 JN$=" NEIN ":IFA$="J"THENK(A)=1:JN$="  JA  "
6130 PRINT    ""+JN$+"[146] [157]_[145]":NEXT
6140 PRINTTAB(37)"  "
6150 IFK(2)=1ORK(4)=1THEN6160
6155 GOTO6190
6160 PRINT"[197]RWERBSMINDERUNG IN V.[200]. .....       [146] %":GOSUB3570:GOSUB3770
6170 IFY>100THENY=0:PRINT"[145][145][145]":GOTO6160
6180 K(5)=Y:IFZTHENZ=0:GOTO6220
6190 IFZ=1THEN6220
6200 PRINT"WEITERE BETROFFENE [208]ERSON ......(J/N)":GOSUB3550
6210 JN$=" NEIN [146]":IFA$="J"THENJN$="  JA  [146]":Z=1
6215 PRINT"[145]"+JN$
6220 GOSUB3540:IFA$="N"THENPRINT"[147]":FORA=1TO4:K(A)=0:NEXT:Z=0:GOTO6005
6225 ZN$="89":OK=OK+1
6230 IFK(5)>24ANDK(5)<35THENK(6)=600
6240 IFK(5)>34ANDK(5)<45THENK(6)=840
6245 IFK(5)>44ANDK(5)<55THENK(6)=1110
6250 IFK(5)>54ANDK(5)<65THENK(6)=1410
6260 IFK(5)>64ANDK(5)<75THENK(6)=1740
6270 IFK(5)>74ANDK(5)<85THENK(6)=2070
6280 IFK(5)>84ANDK(5)<91THENK(6)=2400
6290 IFK(5)>90ANDK(5)<101THENK(6)=2760
6300 IFK(3)=1THENK(10)=K(10)+7200:GOTO6335
6320 IFK(2)=1THENK(10)=K(10)+K(6):GOTO6335
6330 IFK(4)=1ANDK(5)>49THENK(10)=K(10)+K(6)
6335 IFK(1)=1THENK(10)=K(10)+720
6350 IFZ=1ANDOK<2THENPRINT"[147]":FORA=1TO4:K(A)=0:NEXT:GOTO6005
6400 TP$="":TP=37:PRINT"[147]":GOSUB5900
6405 PRINT"[193]NGABEN IN [218]EILE 92 + 91........(J/N) ?":GOSUB3550
6407 IFA$="N"THENPRINT"[145]  KEINE[146] ":GOTO6450
6410 PRINT"[193]UFW.FUER [200]AUSHALTSHILFE ODER [200]EIM :   "
6420 PRINT"[196]AUER DER [194]ELASTUNG IN [205]ONATEN         [146]":GOSUB3570:GOSUB3770
6425 IFY>12THENY=0:PRINT"[145][145][145][145]":GOTO6420
6427 K(12)=Y
6430 PRINT"[211]UMME DER [193]UFWENDUNGEN.......[196][205]        [146]":GOSUB3570:GOSUB3770
6440 K(11)=Y
6450 PRINT"[193]NGABEN IN [218]EILE 92 ............(J/N) ?":GOSUB3550
6460 JN$="  JA  ":K(13)=1:IFA$="N"THENJN$=" KEINE":K(13)=0
6470 PRINT"[145] "+JN$
6480 PRINT"[193]NGABEN IN [218]EILE 93 + 94 .......(J/N) ?":GOSUB3550
6490 IFA$="N"THENPRINT"[145]  KEINE[146]":GOTO6540
6500 GETA$:K(14)=VAL(A$):IFA$=CHR$(13)THEN6540
6510 PRINT"[193]NZAHL IN [218]EILE 94 EINGETR. [203]INDER   ";K(14);"[146]";
6515 IFA$=""THEN6500
6520 GETA$:IFA$=CHR$(13)THEN6540
6522 IFA$=CHR$(20)THENK(14)=0:GOTO6500
6525 GOTO6520
6540 PRINT"[193]NGABEN IN [218]EILE 95 - 99 .......(J/N) ?":GOSUB3550
6550 IFA$="J"THEN6570
6560 PRINT"[145]  KEINE":GOTO6650
6570 PRINT"[145][196]IE UNTERSTUETZTE [208]ERSON HATTE :       "
6580 PRINT"[194]RUTTOARBEITSLOHN............[196][205]        [146]":GOSUB3570:GOSUB3770
6585 K(15)=Y
6590 PRINT"[210]ENTEN.......................[196][205]        [146]":GOSUB3570:GOSUB3770
6595 K(16)=Y
6600 PRINT"[214]ERSORGUNGSBEZUEGE...........[196][205]        [146]":GOSUB3570:GOSUB3770
6605 K(17)=Y
6610 PRINT"[193]UFWAND FUER DIE UNTERSTUETZTE [208]ERSON :"
6620 PRINT".............................[196][205]        [146]":GOSUB3570:GOSUB3770
6625 K(18)=Y
6650 GOSUB3540:IFA$="N"THENFORA=11TO18:K(A)=0:NEXT:GOTO6400
6655 IFK(11)>K(12)*100THENK(11)=K(12)*100
6660 IFK(13)=0THEN6680
6662 IFA(1)=1THENK(13)=540
6663 IFA(1)=0THENK(13)=720
6665 IFA(4)<3ANDA(4)>0THENK(13)=840
6670 IFA(4)>2THENK(13)=900+((A(4)-3)*60)
6680 K(14)=K(14)*600
6700 V(1)=K(15)+(K(17)*.6)-1644:K(16)=K(16)-200:V(2)=V(1)+K(16)
6715 V(3)=V(2)-360:IFV(3)<0THENV(3)=0
6730 V(4)=V(3)-4500:IFV(4)<0THENV(4)=0
6740 V(5)=4500-V(4):K(19)=V(5)
6750 IFK(18)>K(19)THENK(18)=K(19)
6755 GOSUB5900:PRINT"[213]NTERSTUEZTEN [211]IE [214]ERWANDTE IN DER [196][196][210] ?";
6757 PRINT"(J/N)":GOSUB3550
6760 IFA$="N"THENPRINT"[145] NEIN ":GOTO6775
6761 PRINT"[198]OLGENDE [193]UFWENDUNGEN WERDEN"
6762 PRINT"PAUSCHAL BERUECKSICHTIGT :              ";
6763 PRINT" * [196][205] 40,-- PRO [208]AKET"
6764 PRINT" * [196][205] 30,-- PRO [208]AECKCHEN"
6765 PRINT" * [196][205] 50,-- PRO [194]ESUCH IN DER [196][196][210]"
6766 PRINT" * [196][205] 10,-- PRO [194]ESUCH UND [208]ERSON"
6768 PRINT"            AUS DER [196][196][210]"
6769 PRINT"[193]LLE HOEHEREN [193]UFWENDUNGEN NUR MIT      ENTSPERCHENDEM [206]ACHWEIS!"
6770 PRINT"[201]HRE [193]UFWENDUNGEN IN 1986 : "+D$:GOSUB3570:GOSUB3770
6775 GOSUB3540:IFA$="N"THEN6755
6780 K(18)=K(18)+Y
6790 K$="1.":Z=0:OK=0
6800 GOSUB5900:IFOK=1THENZ=1:GOTO6850
6810 PRINT"[193]NGABEN IN [218]EILE 101 - 112     (J/N) ?":GOSUB3550
6820 IFA$="J"THEN6850
6830 PRINT"[145]  KEINE[146]":GOSUB3540
6835 IFA$="N"THEN6800
6836 GOTO7100
6850 PRINT"[193]USBILDUNGSFREIBETRAG ("+K$+"[203]IND)        "
6860 PRINT"[203]IND AELTER ALS 18 [202]AHRE .......(J/N) ?":GOSUB3550
6865 A=0:JN$=" NEIN ":IFA$="J"THENJN$="  JA  ":A=1
6870 PRINT"[145] "+JN$
6890 PRINT"[193]USWAERTIGE [213]NTERBRINGUNG.......(J/N) ?":GOSUB3550
6895 IFA$="N"ANDA=1THENK(20)=1800:JN$=" NEIN ":GOTO6910
6900 K(20)=3000:IFA$="J"ANDA=0THENK(20)=1200:JN$="  JA  "
6910 PRINT"[145] "+JN$
6915 IFA$="N"ANDA=0THENK(20)=0:PRINT"[203]EIN [198]REIBETRAG ABZUGSFAEHIG !":GOTO6990
6920 PRINT"[196]AS [203]IND HATTE IM [193]USBILDUNGSZEITRAUM :"
6930 PRINT"[194]RUTTOARBEITSLOHN............[196][205]        [146]":GOSUB3570:GOSUB3770
6935 K(21)=Y
6940 PRINT"[193]USBILDUNGSBEIHILFE..........[196][205]        [146]":GOSUB3570:GOSUB3770
6945 K(22)=Y
6950 PRINT"ANDERE [197]INKUENFTE/[194]EZUEGE....[196][205]        [146]":GOSUB3570:GOSUB3770
6955 K(23)=Y
6960 PRINT"[196]AUER DER [193]USBILDUNG IN [205]ONATEN        [146]":GOSUB3570:GOSUB3770
6970 IFY>12THENPRINT"[145][145][145]":GOTO6960
6980 K(24)=Y:IFZ=1THEN7020
6990 IFOK=0THENPRINT"[193]USBILDUNGSFREIBETR.FUER 2.[203]IND (J/N) ?";:GOSUB3550
7000 JN$=" NEIN ":IFA$="J"THENJN$="  JA  ":Z=1
7010 PRINT"[145] "+JN$
7020 GOSUB3540:IFA$="N"THENFORA=20TO24:K(A)=0:NEXT:Z=0:GOTO6800
7030 V(6)=(K(20)/12)*K(24)
7040 V(7)=K(21)-4044:IFV(7)<0THENV(7)=0
7050 V(7)=V(6)-V(7)-K(22)-K(23):IFV(7)<0THENV(7)=0
7055 IFOK=1THENK(26)=V(7):GOTO7100
7060 K(25)=V(7):K$="2.":OK=OK+1:IFZ=1THENV(6)=0:V(7)=0:GOTO6800
7100 GOSUB5900
7110 PRINT"[193]NGABEN IN [218]EILE 109 - 113 .....(J/N) ?":GOSUB3550
7120 IFA$="J"THEN7150
7130 GOSUB5950
7135 GOTO 7170
7150 PRINT"[145][203]INDERBETREUUNGSKOSTEN [208]AUSCHBETRAG   :"
7160 PRINT"[194]ERUECKSICHTIGTER [194]ETRAG MIN.[196][205]       ":Y=A(4)*480:GOSUB3770
7165 PRINT" ODER"
7167 PRINT"[194]ETRAG LAUT [218]EILE 113 .......[196][205]        [146]":GOSUB3570:GOSUB3770
7168 K(27)=Y:IFY=0THENK(29)=A(4)*480:GOTO7170
7169 K(27)=K(27)-(A(4)*480):IFK(27)<0THENK(27)=0
7170 PRINT"[146][193]NGABEN IN [218]EILE 114 - 117......(J/N) ?":GOSUB3550
7180 IFA$="N"THENGOSUB5950:GOTO7195
7190 PRINT"[145] [193]NDERE AUSSERGEWOEHNLICHE [194]ELASTUNGEN [146]"
7191 PRINT"[211]UMME DER [193]UFWENDUNGEN TOTAL [196][205]        [146]":GOSUB3570:GOSUB3770
7192 K(27)=K(27)+Y
7194 PRINT "[211]UMME DER [213]NTERSTUETZUNGEN...[196][205]        [146]":GOSUB3570:GOSUB3770
7195 GOSUB3540:IFA$="N"THENK(27)=0:K(28)=0:K(29)=0:GOTO7100
7196 :
7200 K(28)=Y:A(43)=K(27)-K(28):IFK(27)<0THENK(27)=0
7205 K(30)=K(10)+K(11)+K(13)+K(14)+K(18)+K(25)+K(26)+K(29)
7210 RETURN